home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / pcc / v04n10 / contacts.bas < prev    next >
BASIC Source File  |  1991-06-24  |  3KB  |  67 lines
  1. filename$ = "CONTACTS.TXT"    ' Name of contacts database file
  2. form$ = "\            \ \       \  (\ \)-\       \"
  3.  
  4. ' Display the main menu
  5. MainMenu:
  6. CLS : LOCATE 7, 25: PRINT "BUSINESS CONTACTS DATABASE"
  7. LOCATE 11, 25: PRINT "------------ MAIN MENU -------------"
  8. LOCATE 14, 25: PRINT "1. ADD a name to the database"
  9. LOCATE 16, 25: PRINT "2. SEARCH for a name in the database"
  10. LOCATE 18, 25: PRINT "3. QUIT this program"
  11. LOCATE 21, 25: PRINT "Please press 1, 2, or 3"
  12.  
  13. ' Get the user's choice
  14. DO: choice$ = INKEY$
  15. LOOP UNTIL choice$ = "1" OR choice$ = "2" OR choice$ = "3"
  16.  
  17. SELECT CASE choice$
  18.   CASE "1"        ' Add a name to the database
  19.     OPEN filename$ FOR APPEND AS #1
  20.     WHILE UCASE$(last$) <> "END"
  21.       CLS : LOCATE 11, 25: PRINT "ADD a name to the database"
  22.       LOCATE 12, 25: PRINT "(To stop, enter END as a last name)"
  23.       LOCATE 14, 25: INPUT "Last name: ", last$
  24.       IF UCASE$(last$) <> "END" THEN
  25.         LOCATE 16, 24: INPUT "First name: ", first$
  26.         LOCATE 18, 40: PRINT "(Press Enter if n/a)"
  27.         LOCATE 18, 25: INPUT "Area code: ", area$
  28.         LOCATE 20, 22: INPUT "Phone number: ", phone$
  29.         WRITE #1, last$, first$, area$, phone$: CLS
  30.       END IF
  31.     WEND
  32.     CLOSE #1: last$ = "": GOTO MainMenu
  33.  
  34.   CASE "2"        ' Search for a name in the database
  35.     WHILE UCASE$(search$) <> "END"
  36.       OPEN filename$ FOR INPUT AS #1
  37.       CLS : LOCATE 11, 25: PRINT "SEARCH for a name in the database"
  38.         LOCATE 12, 25: PRINT "(To stop, enter END as the name)"
  39.         LOCATE 14, 25: INPUT "Name to search for: ", search$: PRINT
  40.         IF UCASE$(search$) <> "END" THEN
  41.           DO WHILE (NOT EOF(1))
  42.             INPUT #1, last$, first$, area$, phone$
  43.             SELECT CASE UCASE$(search$)
  44.               CASE UCASE$(last$)
  45.                 hit% = 1: LOCATE , 25
  46.                 PRINT USING form$; last$; first$; area$; phone$
  47.               CASE UCASE$(first$)
  48.                 hit% = 1: LOCATE , 25
  49.                 PRINT USING form$; last$; first$; area$; phone$
  50.             END SELECT
  51.           LOOP
  52.           IF hit% = 0 THEN
  53.               LOCATE , 25: PRINT "No match found for "; search$
  54.           END IF
  55.           hit% = 0: LOCATE , 25: PRINT
  56.           LOCATE , 25: PRINT "Press any key to continue"
  57.           DO WHILE INKEY$ = "": LOOP
  58.           CLOSE #1
  59.         END IF
  60.       WEND
  61.       CLOSE #1: search$ = "": GOTO MainMenu
  62.  
  63.   CASE "3"        ' Quit the program
  64.     CLS : SYSTEM
  65.  
  66. END SELECT
  67.